load("Coral.Rda")
ls()
summary (Coral)
x <- cbind(Coral[15], Coral[4], Coral[21:22])
ftable(x)
y <- ftable(x)
y <- round(y*100/sum(y),2)
y
x <- cbind(Coral[20], Coral[16], Coral[21:22])
ftable(x)
x <- cbind(Coral[20], Coral[16], Coral[21:22])
ftable(x)
y <- ftable(x)
x <- cbind(Coral[20], Coral[16], Coral[21:22])
y
x <- cbind(Coral[15:16], Coral[13:14])
ftable(x)
y <- ftable(x)
y <- round(y*100/sum(y),2)
Y
y
dead <- cut(Coral$Dead,breaks=c(0.1,0.2,0.3,0.4))
live <- cut(Coral$Live,breaks=c(0.2,0.4,0.6,0.8))
x <- cbind(Coral[3], dead, live)
ftable(x)
y <- ftable(x)
y <- round(y*100/sum(y),2)
y
x <- cbind(Coral[20], Coral[16], Coral[21:22])
ftable(x)
y <- ftable(x)
y <- round(y*100/sum(y),2)
Y
y
